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P8COR-OVERLAY FOR 8K PAL-D ASSEMBLER FOR 4K DISK MONITOR SYSTEM 

(DECUS NO. 8-333) 


DECUS Program Library Write-up 


DECUS NO. 8-510 


P8COR-OVERLAY FOR 8K PAL-D ASSEMBLER (DECUS NO. 8-333) PERMITS RUNNING IN 
8K CORE WITHOUT DISK OR DECTAPE. 

ASSEMBLES 1 INPUT TAPE VIA TTY - FIX IOLIST AT 5400 FOR MORE TAPES AND/OR 
HIGH-SPEED PAPER TAPE. 

CAN BE RESTARTED AT 200 AT PASS1 - CTRl/C EXITS TO 200 - PRESS CONTINUE 
AFTER HALT. 

OVERLAY INSTRUCTIONS: 

USING BIN LOADER, LOAD THE 8K PAL-D ASSEMBLER (DECUS NO. 8-333) INTO CORE, 
BUT DO NOT EXECUTE IT. USE BIN LOADER TO LOAD THIS OVERLAY ONTO THE 8K 
ASSEMBLER. START THE COMPOSITE LOAD AT THE ONCE-ONLY CODE AT LOC 4530 
IN FIELD 0. AFTER THE ONCE-ONLY CODE HAS BEEN EXECUTED, THE PROGRAM HALTS 
AT LOC 4404. A STAND-ALONE BINARY TAPE MAY BE PUNCHED. 

APPROPRIATE CORE LIMITS: 


FIELD 0: 
FIELD 1: 


0-5407 

6747-7577 


THIS STAND-ALONE TAPE MAY BE LOADED WITH THE BIN LOADER AND THEN STARTED 
AT 0200, FIELD 0. 

EXPANSION FOR TWO INPUT FILES IS ACCOMPLISHED BY PATCHING IOLIST AS FOLLOWS 


5404 

5405 

5406 

5407 


0001 

0000 

7777 

0324 


SIMILAR PATCHING IS POSSIBLE FOR MORE TAPES. FOR HIGH-SPEED PAPER TAPE, R: 
BECOMES 0002, AND ANSI R IS 0322 FOR THE LIST OPTION. OPTION L FOR THE LINE 
PRINTER IS NOT AVAILABLE WITH THIS OVERLAY. 
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0201 

4400 


*201 

4400 

3713 

5535 


*3713 

5535 

4400 

1304 


*4400 

TAD KTYPO 

4401 

3001 


DCA 1 

4402 

6046 


TLS 

4403 

4713 


JMS 1 CRLF 1 

4404 

7402 


HLT 

4405 

1153 


TAD 153 

4406 

3475 


DCA 1 75 

4407 

1310 


TAD K5226 

4410 

3711 


DCA 1 KP1 

4411 

1312 


TAD K5400 

4412 

3302 


DCA SWITLT 

4413 

3010 


DCA 10 

4414 

3011 


DCA 11 

4415 

3012 


DCA 12 

4416 

3013 


DCA 13 

4417 

3014 


DCA 14 

4420 

3015 


DCA 15 

4421 

1314 


TAD PI 7 

4422 

3016 


DCA 16 

4423 

1315 


TAD M34 

4424 

3307 


DCA CNT 

4425 

3416 


DCA 1 16 

4426 

2307 


ISZ CNT 

4427 

5225 


JMP .-2 

4430 

1316 


TAD PI46 

4431 

3024 


DCA 24 

4432 

1316 


TAD PI 46 

4433 

3027 


DCA 27 

4434 

7140 


CLL CMA 

4435 

3052 


DCA 52 

4436 

1306 


TAD KWASTE 

4437 

31 20 


DCA 120 

4440 

3121 


DCA 121 

4441 

1702 


TAD 1 SWITLT 

4442 

7450 


SNA 

4443 

5253 


JMP STDLY+1 

4444 

7010 


RAR 

4445 

7630 


SZL CLA 

4446 

5251 


JMP TTYO 

4447 

1305 


TAD KPTPO 

4450 

7410 


SKP 

4451 

1304 

TTYO, 

TAD KTYPO 

4452 

3120 

STDLY, 

DCA 120 


/OVERLAYS FINDBL 
/JMP I P200=EXIT 


/DECOUT 


/(NOP 

/MAIN 

/(JMP PUNLVE 

/PUNONE+1 J 

/ IOLIST 

/ZERO REGISTERS 
/ 10 THRU 15 


/ZERO PAGE-ZERO 
/CONSTANTS 


/SEND 

/PERMA 

/CHRCNT 

/OUTPUT 

/LISTWD 


/OUTPUT 
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4453 

2302 


ISZ SWITLT 

4454 

1702 


TAD 1 SWITLT 

4455 

7040 


CMA 

4456 

7640 


SZA CLA 

4457 

5253 


JMP .-4 

4460 

2302 


ISZ SWITLT 

4461 

1702 


TAD 1 SWITLT 

4462 

1317 


TAD MLETRT 

4463 

7450 


SNA 

4464 

5275 


JMP TTYLST 

4465 

1320 


TAD DFTMR 

4466 

7650 


SNA CLA 

4467 

5277 


JMP PUNLST 

4470 

7200 

STDLY1, 

CLA 

4471 

13/3 


TAD KA 

4472 

3171 


DCA 171 

4473 

44/2 


JMS 1 2 

4474 

5475 


JMP 1 75 

4475 

13/4 

TTYLST, 

TAD KTYPO 

4476 

741/ 


SKP 

4477 

13/5 

PUNLST, 

TAD KPTPO 

4500 

3121 


DCA 121 

4501 

527/ 


JMP STDLY1 

4502 

54// 

SWITLT, 

54// 

4503 

54/1 

KA, 

54/1 

4504 

26// 

KTYPO, 

2600 

4505 

0600 

KPTPO, 

0600 

4506 

4315 

KWASTE, 

4315 

4507 

0000 

CNT, 

/ 

4510 

5226 

K5226, 

5226 

4511 

3/12 

KP1, 

3/12 

4512 

54// 

K54//, 

54// 

4513 

3315 

CRLF 1, 

3315 

4514 

0017 

PI 7, 

17 

4515 

7744 

M34, 

-34 

4516 

0146 

PI 46, 

146 

4517 

7454 

MLETRT, 

7454 

4520 

0002 

DFTMR, 

2 

*453/ 

4530 

4732 


JMS 1 BLTX 

4531 

5535 


JMP 1 135 

4532 

3722 

BLTX, 

3722 

*54// 

5400 

0001 


1 

5401 

0000 


/ 

5402 

0001 


1 

5403 

0000 


/ 

5404 

7777 


-1 

5405 

0324 


324 


/SWPT 
/DELQY1 
/AAA IN EX 


/LISTWD 


/ONCE-ONLY CODE 

/P?0/=EXIT 

/BLT0 

/lOLIST 

/*OUT-T: 

/ 

/*IN-T: (EXPAND HERE FOR 
/MORE INPUT FILES) 
/*OPT-T 

/ 
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SYMBOL TABLE 

BLTX 

4532 

CNT 

4507 

CRLF 1 

4513 

DFTMR 

4520 

KA 

4503 

KPTPO 

4505 

KP1 

4511 

KTYPO 

4504 

KWASTE 

4506 

K5226 

4510 

K5400 

4512 

MLETRT 

4517 

M34 

4515 

PUNLST 

4477 

PI 46 

4516 

PI 7 

4514 

STDLY 

4452 

STDLY1 

4470 

SWITLT 

4502 

TTYLST 

4475 

TTYO 

4451 





